home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue24 / survive / DMDATA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-06-23  |  1.7 KB  |  75 lines
  1. unit dmData;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DB, DBTables;
  8.  
  9. type
  10.   TdmDataModule = class(TDataModule)
  11.     dbDemo: TDatabase;
  12.     qryCreditIssue: TQuery;
  13.     spCreditNew: TStoredProc;
  14.     qryCreditsOutByCustomer: TQuery;
  15.     qryPaymentMethodsGet: TQuery;
  16.     qryCreditsOutByCustomerAMOUNT: TFloatField;
  17.     qryCreditsOutByCustomerISSUEDATETIME: TDateTimeField;
  18.     qryCreditsOutByCustomerBALANCEDUE: TFloatField;
  19.     qryCreditsOutByCustomerCREDITNO: TIntegerField;
  20.     spPaymentSave: TStoredProc;
  21.     qryPaymentCreditSave: TQuery;
  22.     qryPaymentAllocSave: TQuery;
  23.     spPaymentCreditSave: TStoredProc;
  24.     procedure dmDataModuleCreate(Sender: TObject);
  25.     procedure dmDataModuleDestroy(Sender: TObject);
  26.   private
  27.   public
  28.     PaymentMethodsList: TStringList;
  29.   end;
  30.  
  31. var
  32.   dmDataModule: TdmDataModule;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. uses
  39.   uBase;
  40.  
  41. procedure TdmDataModule.dmDataModuleCreate(Sender: TObject);
  42. var
  43.   Code: PChar;
  44. begin
  45.   PaymentMethodsList := TStringList.Create;
  46.  
  47.   with qryPaymentMethodsGet do begin
  48.     Open;
  49.     try
  50.       while not Eof do begin
  51.         Code := StrAlloc(Length(FieldByName('PayMethodCode').AsString));
  52.         StrPCopy(Code, FieldByName('PayMethodCode').AsString);
  53.         PaymentMethodsList.AddObject(FieldByName('PayMethodName').AsString, TObject(Code));
  54.         Next;
  55.       end;
  56.     finally
  57.       Close;
  58.     end;
  59.   end;
  60. end;
  61.  
  62. procedure TdmDataModule.dmDataModuleDestroy(Sender: TObject);
  63. var
  64.   I: Integer;
  65. begin
  66.   if Assigned(PaymentMethodsList) then
  67.     with PaymentMethodsList do begin
  68.       for I := 0 to Count - 1 do
  69.         StrDispose(PChar(Objects[I]));
  70.       Free;
  71.     end;
  72. end;
  73.  
  74. end.
  75.